Attribute VB_Name = "SimpleFiles"
Option Explicit

Sub Rename(oldname As String, newname As String)
    Name oldname As newname
End Sub

Function IsDirectory(name As String) As Boolean
  On Error Resume Next
  IsDirectory = CBool(GetAttr(name) And vbDirectory)
End Function

Function Exists(name As String) As Boolean
    Exists = (Dir(name) = "")
End Function

Function Size(handle As Integer) As Long
    
End Function

Sub WriteString(handle As Integer, value As String)
    
End Sub
Function ReadString(handle As Integer) As String

End Function
Sub WriteBoolean(handle As Integer, value As Boolean)

End Sub
Function ReadBoolean(handle As Integer) As Boolean

End Function
Sub WriteByte(handle As Integer, value As Byte)

End Sub
Function ReadByte(handle As Integer) As Byte

End Function
Sub WriteShort(handle As Integer, value As Integer)

End Sub
Function ReadShort(handle As Integer) As Integer

End Function
Sub WriteInteger(handle As Integer, value As Integer)

End Sub
Function ReadInteger(handle As Integer) As Integer

End Function
Sub WriteLong(handle As Integer, value As Long)

End Sub
Function ReadLong(handle As Integer) As Long

End Function
Sub WriteSingle(handle As Integer, value As Single)

End Sub
Function ReadSingle(handle As Integer) As Single

End Function
Sub WriteDouble(handle As Integer, value As Double)

End Sub
Function ReadDouble(handle As Integer) As Double

End Function
